home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aai.d64
/
expand'ram.proc
< prev
next >
Wrap
Text File
|
2007-02-28
|
515b
|
24 lines
9000 //
9010 PROC EXPAND'RAM CLOSED
9020 IF PEEK(18728)<>183 THEN
9030 FOR ADDR:=45969 TO 45981 DO
9040 POKE ADDR+1024,PEEK(ADDR)
9050 ENDFOR ADDR
9060 POKE 4569,183
9070 POKE 15256,183
9080 POKE 17458,183
9090 POKE 18728,183
9100 POKE 21833,183
9110 POKE 24332,183
9120 POKE 24606,183
9130 POKE 26866,183
9140 POKE 28711,183
9150 POKE 28727,183
9160 POKE 29977,183
9170 POKE 34441,183
9180 POKE 751,2
9190 POKE 2066,144
9200 POKE 2067,183
9210 ENDIF
9220 ENDPROC EXPAND'RAM